Application.ModelessCmd("g 2 gd 2")
Application.StatusBarText = "Set Grids = 2"